home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1995 April / Internet Tools.iso / osi / isode / vmsisode / vmsisode80_tar.Z / vmsisode80_tar / sockit / source / mar.com < prev    next >
Encoding:
Text File  |  1991-02-19  |  387 b   |  18 lines
  1. $ mar_file = p1+".mar"
  2. $ obj_file = p1+".obj"
  3. $ if f$search(obj_file) .NES. ""
  4. $  then
  5. $   obj_date = f$cvtime(f$file_attributes(obj_file,"RDT"))
  6. $   mar_date   = f$cvtime(f$file_attributes(mar_file,"RDT"))
  7. $   if obj_date .GTS. mar_date then exit
  8. $   delete 'obj_file';
  9. $ endif
  10. $!
  11. $ dbg = ""
  12. $ f = "macro ''mar_file'"
  13. $ write sys$output "macro ''mar_file'"
  14. $ 'f'
  15. $ altered == 1
  16. $ exit
  17.  
  18.